﻿Namespace Global.System.Threading.Tasks

    Public Module Extension

        <Extension()> _
        Public Sub StartSynchronously(ByVal [Me] As Task)
            Try
                If [Me].IsCompleted = False Then [Me].Start()
            Catch ex As Exception
                Exit Try
            End Try
            [Me].Wait()
        End Sub

    End Module

End Namespace